﻿Public Class ven_concent_ranura

    Private Sub cal_rela_graf_Click(sender As Object, e As EventArgs) Handles cal_rela_graf.Click
        dmayor_ran = Convert.ToSingle(txt_Dmayor_ran.Text)
        r = Convert.ToSingle(r_ran.Text)
        txt_rentred_ran.Text = r / d
        txt_dmayorentred_ran.Text = dmayor_ran / d
    End Sub

    Private Sub btn_cal_ran_ce_Click(sender As Object, e As EventArgs) Handles btn_cal_ran_ce.Click


        alfakflex = Convert.ToSingle(fgceflex_ran.Text)
        alfaktor = Convert.ToSingle(fgcetor_ran.Text)
        nent = (1 + (8 / r) * ((1 - sf / su) ^ 3)) ^ (-1)
        betakflex = 1 + nent * (alfakflex - 1)
        betaktor = 1 + nent * (alfaktor - 1)

        Me.Close()
    End Sub



End Class